xerox Version.mesa Sep78 free download

File name Version.mesa_Sep78.pdf

Version.mesa 2-Sep-78 14:40:55 Page 1 -- Version.Mesa Edited by Johnsson on April 21, 1978 9:44 AM DIRECTORY AltoDefs: FROM "altodefs", AltoFileDefs: FROM "altofiledefs", BedDefs: FROM "beddefs", DirectoryDefs: FROM "direetorydefs", ImageDefs: FROM "imagedefs", InlineDefs: FROM "inlinedefs", IODefs: FROM "iodefs", SegmentDefs: FROM "segmentdefs", StreamDefs: FROM "streamdefs", StringDefs: FROM "StringDefs", SystemDefs: FROM "SystemDefs", TimeDefs: FROM "timedefs"; DEFINITIONS FROM IODefs, StreamDefs, StringDefs; Version: PROGRAM IMPORTS DireetoryDefs, IODefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs, TimeDefs SHARES ImageDefs a BEGIN FP: TYPE = AltoFileDefs.FP; BcdBase: TYPE = POINTER TO BedDefs.BCD; UnpaekedTime: TYPE = TimeDefs.UnpackedTime; -- convert characters to upper case CharMask: PROCEDURE[CHARACTER,CARDINAL] RETURNS [CARDINAL] = LOOPHOLE[InlineDefs.BITAND]; upease: CARDINAL = 137B; BinaryVersion: VersionProe